home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
xdsn217.zip
/
SAMPLES
/
CSET
/
m2test.mod
< prev
Wrap
Text File
|
1996-03-12
|
429b
|
18 lines
IMPLEMENTATION MODULE m2test;
IMPORT STextIO, SWholeIO, c_test;
PROCEDURE ["C"] m2func(a,b: INTEGER): INTEGER;
BEGIN
STextIO.WriteString("m2func(");
SWholeIO.WriteInt(a,0); STextIO.WriteChar(',');
SWholeIO.WriteInt(b,0); STextIO.WriteChar(')');
STextIO.WriteLn;
STextIO.WriteString("And now calling 'c_func' from Modula-2");
STextIO.WriteLn;
RETURN c_test.c_func (a, b)
END m2func;
END m2test.